home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
music
/
sfx-data.lha
/
sfx-data
/
Install-SFXdata
next >
Wrap
Text File
|
1996-01-09
|
5KB
|
159 lines
; Install-SFXdata Start -------------------------------------------------------------------------------------
;
; $VER: Install-SFXdata (02.12.1995)
;
; SoundFX data Installscript
; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
;
; -----------------------------------------------------------------------------------------------------------
; setze sprachenabhängige Texte -----------------------------------------------------------------------------
(IF (= @LANGUAGE "english")
(
(SET #bad-kick "SoundFX requires at least Kickstart 2.04 !")
(SET #welcome-messy "\n\nWelcome to the installation of data for SoundFX !")
(SET #choose-dest "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
(SET #choose-dest-help "Here you can choose the place on your HD, were the data for SFX should be installed")
(SET #dest-require "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
(SET #copy-fonts "copying fonts ...")
(SET #copy-libs "copying librarys ...")
(SET #copy-synths "copying synths ...")
(SET #copy-eqshapes "copying eq-shapes ...")
(SET #copy-envelopes "copying envelopes ...")
(SET #copy-workshop "copying workshopfiles ...")
(SET #copy-help "The respective files will copied to your HD.")
(SET #exit-messy "\n\nSFXdata is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
))
(IF (= @LANGUAGE "deutsch")
(
(SET #bad-kick "SoundFX benötigt mindestens Kickstart 2.04 !")
(SET #welcome-messy "\n\nWillkommen zur Installation der Daten für SoundFX !")
(SET #choose-dest "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
(SET #choose-dest-help "Hier können Sie auswählen, wohin Sie die Daten für das Programm installeren möchten")
(SET #dest-require "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
(SET #copy-fonts "kopiere Fonts ...")
(SET #copy-libs "kopiere Librarys ...")
(SET #copy-synths "kopiere Synths ...")
(SET #copy-eqshapes "kopiere EQ-Shapes ...")
(SET #copy-envelopes "kopiere Envelopes ...")
(SET #copy-workshop "kopiere Workshopdateien ...")
(SET #copy-help "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
(SET #exit-messy "\n\nSFXdata konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
))
; check kick version ----------------------------------------------------------------------------------------
(if (< (/ (getversion) 65536) 37)
(abort #bad-kick)
)
; los geht`s ------------------------------------------------------------------------------------------------
(COMPLETE 0)
(MESSAGE #welcome-messy)
(SET @default-dest
(ASKDIR
(PROMPT #choose-dest)
(HELP #choose-dest-help)
(DEFAULT @default-dest)
)
)
(MESSAGE #dest-require)
; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
(COMPLETE 5)
(SET @default-dest (TACKON @default-dest "SFX"))
(SET sfx-dest @default-dest)
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfx-dest (INFOS))
)
; Fonts kopieren --------------------------------------------------------------------------------------------
(COMPLETE 10)
(COPYFILES
(PROMPT #copy-fonts)
(HELP #copy-help)
(SOURCE "Fonts/")
(DEST "FONTS:")
(ALL)
)
; Libs kopieren ---------------------------------------------------------------------------------------------
(COMPLETE 15)
(COPYLIB
(PROMPT #copy-libs)
(HELP #copy-help)
(SOURCE "Libs/amigaguide.library")
(DEST "LIBS:")
)
; Synths ----------------------------------------------------------------------------------------------------
(COMPLETE 20)
(SET sfxsub-dest (TACKON sfx-dest "Synths"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COMPLETE 22)
(COPYFILES
(PROMPT #copy-synths)
(HELP #copy-help)
(SOURCE "Synths/")
(DEST sfxsub-dest)
(ALL)
)
; Eqshapes --------------------------------------------------------------------------------------------------
(COMPLETE 35)
(SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COMPLETE 37)
(COPYFILES
(PROMPT #copy-eqshapes)
(HELP #copy-help)
(SOURCE "Eqshps/")
(DEST sfxsub-dest)
(ALL)
)
; Envelopes -------------------------------------------------------------------------------------------------
(COMPLETE 50)
(SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COMPLETE 52)
(COPYFILES
(PROMPT #copy-envelopes)
(HELP #copy-help)
(SOURCE "Envelopes/")
(DEST sfxsub-dest)
(ALL)
)
; Workshop-Scripte ------------------------------------------------------------------------------------------
(COMPLETE 70)
(SET sfxsub-dest (TACKON sfx-dest "Workshop"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest (INFOS))
)
(COMPLETE 72)
(COPYFILES
(PROMPT #copy-workshop)
(HELP #copy-help)
(SOURCE "Workshop/")
(DEST sfxsub-dest)
(ALL)
)
; Fertig ----------------------------------------------------------------------------------------------------
(COMPLETE 99)
(MESSAGE #exit-messy)
(COMPLETE 100)
(EXIT (QUIET))
; Install-SFXdata Ende --------------------------------------------------------------------------------------